home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmtr.dir / Internal_8_play0.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  625 b   |  30 lines
  1. property pMode, myName, meSprite, meMember, meHmember
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6.   meMember = meSprite.member
  7.   myName = meSprite.member.name
  8.   meHmember = member(myName & "h", 2)
  9. end
  10.  
  11. on mouseEnter me
  12.   meSprite.member = meHmember
  13.   updateStage()
  14. end
  15.  
  16. on mouseLeave me
  17.   meSprite.member = meMember
  18.   updateStage()
  19. end
  20.  
  21. on mouseUp me
  22.   gmObject.playMode = pMode
  23.   gmObject.whosNext = 0
  24.   go("play")
  25. end
  26.  
  27. on getPropertyDescriptionList me
  28.   return [#pMode: [#comment: "(0-2) 0 = ingen datorrespons alls, 1 = sv├Ñrt datorspel, 2 = l├ñtt datorspel", #format: #integer, #default: 0]]
  29. end
  30.